home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / comms_w / fibsw130.zip / FIBSLOGN.SCR < prev    next >
Text File  |  1994-05-31  |  2KB  |  68 lines

  1. @echo 0
  2. @rem ************************************************************************
  3. @rem ****  fibslogn.scr - Logs in to FIBS (dial-up only) -- See           ***
  4. @rem ****                 winsock.wcw for winsock login procedure.        ***
  5. @rem ****                 Basically, this procedure (1) tracks the        ***
  6. @rem ****                 password prompt in order to perform password    ***
  7. @rem ****                 blanking during manual login, and (2) decides   ***
  8. @rem ****                 whether this is a guest login or not.           ***
  9. @rem ****                 NB: guest logins are detected by watching for   ***
  10. @rem ****                 a transition to online state from login prompt  ***
  11. @rem ****                 without an intervening password prompt! Crude   ***
  12. @rem ****                 but effective.                                  ***
  13. @rem ************************************************************************
  14.  
  15.  
  16. @rem Wait for the Login prompt.
  17.  
  18. @echo "\r\n** Logging in to FIBS...\r\n"
  19. @wait "login: " 
  20.  
  21. @if "%FibsLoginName%" == ""
  22. @    echo "\r** Please login manually.\r\n** The connect script will resume after login is complete\r\nlogin: "
  23. @else 
  24. @  if "%FibsPassword%" == ""
  25. @    echo "\r** Please enter your password manually.\r\n** The connect script will resume after login is complete\r\nlogin: "
  26. @  endif
  27. @endif
  28.  
  29.  
  30. @:Login
  31.  
  32. @passwordEntry 0
  33. @if "%FibsLoginName%" != ""
  34. @   send "%FibsLoginName%\r"
  35. @   wait "\n"
  36. @endif
  37.  
  38.  
  39. @rem If we get a cmd prompt before a password prompt, then we must be doing a 
  40. @rem guest login!
  41.  
  42. @branch "Waiting for \"password: \""   "password: " Password "login: " Login "\n>" DoGuestLogin
  43.  
  44.  
  45. @:Password
  46. @passwordEntry 1
  47. @if "%FibsPassword%" != ""
  48. @   send "%FibsPassword%\r"
  49. @endif
  50. @wait "\n"
  51. @passwordEntry 0
  52. @branch "Waiting for command prompt" "login: " Login "authenticated." DoAuthenticated "\n>" DoNormalLogin
  53.  
  54. @:DoGuestLogin
  55.  
  56. @rem Must wait for registration before issuing the init commands, because
  57. @rem normal commands don't work until registration is complete!
  58. @  branch "" "\nYou are registered." 
  59.  
  60. @:DoAuthenticated
  61. @wait "\n>"
  62.  
  63. @:DoNormalLogin
  64. <initfibs.scr
  65.  
  66.  
  67.  
  68.